home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / gmplaygui / gmplaygui < prev    next >
AmigaDOS Script File  |  1997-06-14  |  2KB  |  131 lines
  1. .key co
  2.  
  3. ; $VER: GMPlayGUI 1.5 (970614)
  4. ; By Anders Persson
  5.  
  6. failat 21
  7.  
  8. if <co$z> EQ r
  9.     skip elon
  10. endif
  11.  
  12.  
  13. if exists gui
  14.  
  15.     setenv gmstart nu
  16.     run >nil: selector gui/welcome.sel
  17.     set first=yes
  18.     echo >StartFromShell "cd *"`cd`*"*Nrun >nil: execute GMPlayGUI"
  19.     protect StartFromShell +s
  20.  
  21.     which >nil: requestfile
  22.     if warn
  23.         unsetenv gmstart
  24.         selector gui/noreq
  25.         quit
  26.     endif
  27.  
  28.     assign >nil: gm: exists
  29.     if not warn
  30.         assign gmd: gm:
  31.     endif
  32.     
  33.     if exists env:gmdir
  34.         assign gmd: "$gmdir"
  35.     endif
  36.  
  37.     assign >nil: gmd: exists
  38.     if warn
  39.         unsetenv gmstart
  40.         selector gui/nogm
  41.         quit
  42.     endif
  43.  
  44.     version >nil: gmd:gmplay 1 3
  45.     if warn
  46.         unsetenv gmstart
  47.         selector gui/nogm
  48.         quit
  49.     endif
  50.  
  51.     if exists env:gm
  52.         unsetenv gmstart
  53.         selector gui/running
  54.         quit
  55.     endif
  56.  
  57.  
  58.     
  59.     gmd:gmplay >nil: alloc.mid
  60.     if warn
  61.         unsetenv gmstart
  62.         selector gui/noaudio
  63.         quit
  64.     endif
  65.  
  66.  
  67.     if "`which selector`" NOT EQ "RES selector"
  68.         resident selector pure add
  69.         setenv gmres Yes
  70.     else
  71.         version >nil: selector 5 5
  72.         if warn
  73.             setenv oldsel `version selector full`
  74.             resident >nil: selector remove
  75.             resident selector pure add
  76.             selector gui/oldsel
  77.         endif
  78.         
  79.     endif
  80.  
  81.     resident c:eval pure add
  82.  
  83.     cd gui
  84.     copy >nil: settings env:
  85.     unsetenv gmstart
  86.  
  87. endif
  88.  
  89. setenv gm ""
  90. run >nil: selector loading
  91.  
  92. setenv gmpid <$$>
  93. setenv gmpl 0
  94. setenv gmplb 0
  95. setenv gmant 0
  96. setenv gmch 0
  97. setenv gmdisp "By Boray"
  98. setenv short "Nothing Yet"
  99. setenv sfreq "Mega-"
  100. run >nil: selector menu.sel
  101.  
  102. if "$gmi" EQ ";"
  103.     run >nil: selector info.sel
  104. endif
  105.  
  106.  
  107. lab elon
  108. if not exists "$midi"
  109.     unsetenv gm
  110.     unsetenv gmpid
  111.     setenv midi SYS:
  112.     selector newfiles
  113.     quit
  114. endif
  115. list >t:gm lformat "execute gp *"%f%n*"" "$midi" pat (#?.mid|#?.midi|mid.#?|midi.#?)
  116.  
  117. if 1 GT `list t:gm lformat %l` VAL
  118.     unsetenv gm
  119.     unsetenv gmpid
  120.     selector nofiles
  121.     quit
  122. endif
  123. /unsort >env:gmant t:gm
  124. setenv gmant `eval $gmant`
  125. setenv gmpl 0
  126. setenv gmplb 0
  127. setenv gmch 0
  128. execute t:gm
  129.  
  130. execute /GMPlayGUI r
  131.